﻿Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports NHibernate
Imports SIAVU.Dominio



Namespace Persistencia
    Public Class RolPersistencia
        'Public Function GetByUsuarioId(ByVal UsuarioID As Integer) As IList(Of Rol)
        '    Dim session As ISession = Nothing
        '    Try
        '        session = NHibernateHelper.OpenSession
        '        Dim objProgramacion As Programacion
        '        objProgramacion = DirectCast(session.Get(GetType(Programacion), ProgramacionID), Programacion)
        '        If objProgramacion.Actividades.Count > 0 Then
        '            Return objProgramacion.Actividades
        '        Else
        '            Return Nothing
        '        End If
        '    Catch ex As Exception
        '        Throw
        '    Finally
        '        session.Close()
        '    End Try
        'End Function

        

    End Class
End Namespace

